home *** CD-ROM | disk | FTP | other *** search
- --= SID = SIMTEL20 Ada Software Repository Item Description File = SID =--
- -- UNIT NAME : SORT
- -- VERSION : 1.0
- -- REVIEW CODE :
- -- DDN ADDRESS : ANDERSON%TI-EG at CSNET-RELAY
- -- AUTHOR : John A. Anderson
- -- : TEXAS INSTRUMENTS MS 8006
- -- : P.O. BOX 801
- -- : MCKINNEY, TEXAS 75069
- -- COPYRIGHT : (c) 1984, 1985 John Anderson
- -- DATE CREATED : December 19, 1984
- -- DATE RELEASED : January 10, 1985
- -- DATE LAST UPDATED : ANDERSON Wed Dec 19, 1984
- -- LOCATION : C2MUG
- -- LOCATION : ASR
- -- ENVIRONMENT : DG MV 10000, Ada Development Environment
- --= CLASSIFICATION ===============================================--
- -- CATEGORY LEVEL 1 : COMPONENTS
- -- CATEGORY LEVEL 2 : SORT
- -- CATEGORY LEVEL 3 : Quick Sort
- -- CATEGORY LEVEL 4 :
- -- KEYWORD : sort
- -- KEYWORD : quick sort
- -- INDEX : Sort
- -- INDEX : Quick Sort
- -- TAXONOMY :
- -- DEPENDENCIES :
- -- SEE ALSO :
- --= FILE LISTING ===============================================--
- -- FILE SPECS : PD:<ADA.COMPONENTS>QSORT.*
- -- DIRECTORY DISPLAY :
- -- Directory PD:<ADA.COMPONENTS>
- -- File Name Byte Count Line Count
- -- --------------- ---------- ----------
- -- QSORT.PRO 1568 35
- -- QSORT.SRC 7325 248
- -- =============== ========== ==========
- -- 2 Files 8893 283
- --= ABSTRACT ===============================================--
- -- This generic procedure uses the QuickSort algorithm to sort an
- -- array of any base type with any discrete index type.
- --= REVISION HISTORY ===============================================--
- --
- -- DATE AUTHOR HISTORY
- -- 10 Jan 85 John Anderson Initial Release
- --= RELEASE NOTICE ===============================================--
- -- This software is released to the public domain.
- --= DISCLAIMER ===============================================--
- -- This software and its documentation are provided "AS IS" and
- -- without any expressed or implied warranties whatsoever. No warranties
- -- as to performance, merchantability, or fitness for a particular
- -- purpose exist.
- -- The user is advised to test the software thoroughly before
- -- relying on it. The user must assume the entire risk and liability of
- -- using this software. In no event shall any person or organization of
- -- people be held responsible for any direct, indirect, consequential or
- -- inconsequential damages or lost profits.
- --======================================================================--
-